00100	TITLE SYMMAK CONSTRUCTS LISP SYSBOL TABLE IN FILE LISP.SYM
00200	
00300	MLON
00400	A=1
00500	B=2
00600	P=14
00700	
00800	EXTERNAL JOBSYM
00900	SYMMAK:	SOS 2,JOBSYM
01000		MOVEM 2,LST
01100		INIT 17
01200		SIXBIT /DSK/
01300		0
01400		HALT
01500		ENTER FILE
01600		HALT
01700		OUTPUT [IOWD 1,LST	;OUTPUT LENGTH OF FILE
01800			0]
01900		OUTPUT LST
02000		STATZ 740000
02100		HALT
02200		RELEASE
02300		CALL [SIXBIT /EXIT/]
02400	
02500	FILE:	SIXBIT /ILISP/
02600		SIXBIT /SYM/
02700		0
02800		0
02900	
03000	LST:	0
03100		0
03200	
03300	END SYMMAK